5 DIM SY$(50)
10 INPUT"ANNA TIEDOSTONIMI:";TN$
11 OPEN15,8,15,"S0:"+TN$+".EF":CLOSE15:OPEN3,8,0,"0:"+TN$+",P,R"
12 OPEN2,8,2,"0:"+LEFT$(TN$,13)+".EF,S,W"
19 BYTE$="":N=0
20 N=N+1:GET#3,YE$
21 IFST<>0THENPRINT#2:CLOSE2:CLOSE3:GOTO40
22 IFYE$="[220]"THENCH$=CHR$(13):GOTO30
23 IFYE$=CHR$(119)THENCH$="]":GOTO30
24 IFYE$=CHR$(120)THENCH$="\":GOTO30
25 IFYE$=CHR$(121)THENCH$="[":GOTO30
26 IFYE$=""THENCH$="@":GOTO30
27 IFASC(YE$)<27THENCH$=CHR$(ASC(YE$)+64):GOTO30
28 IFASC(YE$)>64ANDASC(YE$)<91THENCH$=CHR$(ASC(YE$)+128):GOTO30
29 CH$=YE$
30 PRINT#2,CH$;:GOTO20
31 SY$(L)=SY$(L)+CH$:IFLEN(SY$(L))<254THEN20
32 L=L+1:GOTO20
40 PRINT"TEKSTIN NIMI:";TN$
41 PRINT"TEKSTIN PITUUS:[157]";N;"MERKKI[."
42 IFN<254THENN=254
43 IFN/254>INT(N/254)THENBL=INT(N/254)+1
44 IFN/254=INT(N/254)THENBL=N/254
45 PRINT"FILEN PITUUS:[157]";BL;"BLOKKIA."
46 PRINT"K[[NN\S TEHTY.":END
50 PRINTYE$;:POKE198,0:WAIT198,1:IFCHR$(PEEK(631))=" "THENRETURN
51 END